Top 10k strings from MicroHobby Semanal - Issue 089-092 (1986)(Hobby Press)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
6 d(n,i,o)=-1
5 "SPECTRUM "
4 pasa=pasa-1
4 c$(j)="SPECTRUM "
4 *o;"N.C.":
3 F+PASO,XM;"
3 ,i,o))/d(44
2 pantalla
2 l$="DEFIINSUSUFIBIENNOTASOBR":
2 a=a+(a$(a)=" "):
2 YM,F+PASO;"
2 PROGRAMAS INCLUIDOS EN
2 >B><>B<><B
2 >B><><<><B
2 ;"PULSA UNA TECLA":
2 ;"No conozco a";
2 ;"================================"
2 ;" DIRECCION? (5-
2 ;" Prepara una cinta para grabary pulsa una tecla.":
2 ;" ":
2 ;" PARA EL CASSETTE "
2 ;" ME TOCA A MI ":
2 7-8) P-pasar "
2 ,i,o)=d(44
2 ,i,o)+(d(44
2 ,eval,asig)=0
2 (d(n,i,o)-d(42
2 (Y(q),X(q))
2 "` Nombre de las notas ? "," (M~x.: 10 carac. ";b$:
2 "` N]mero de la evaluaci^n ? ";eval:
2 "` N]mero de la asignatura ? ";asig:
2 "` N]mero de alumnos ? ";alum:
2 LISTA DE ALUMNOS
2 ESTA CINTA UTILIZA
2 O LOAD "<NOMBRE>"
2 PARA CARGAR LOS
2 LOAD ""
2
1 zona
1 z=(d(n,i,o)-d(42
1 z=(d(n,eval,asig)-d(42
1 z$="5678"(o):
1 z$="5678"(
1 ym,f+paso;"
1 y,x,a,b,a$:
1 y(q),x(q);"
1 xxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxzxzyyyyyyyyyyyyzzzxxxxxxxxxxxxxzzxzyyyyyyyyyyyyzzzxxxxxxxxxzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxyxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNyyyyNNNNNNNNNNNNNNNNNNNNNNNNNNNNxy~~NNNNNNNNNNNNNNNNNNNNNNNNNNNNyyx~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
1 xxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxzxzyyyyyyyyyyyy9zzxxxxxxxxxxxxxzzxzyyyyyyyyyyyy9zzxxxxxxxxxzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxxxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNxyxxNNNNNNNNNNNNNNNNNNNNNNNNNNNNyyyyNNNNNNNNNNNNNNNNNNNNNNNNNNNNxy~~NNNNNNNNNNNNNNNNNNNNNNNNNNNNyyx~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
1 v(j)=v(j)-d
1 v(j)=v(j)+d
1 v(j)-d=v(3
1 v(j)+d=v(3
1 tron2
1 tron1 0
1 sprites
1 sprit
1 rutina de demostracion de la NMI
1 rtty2
1 rtty
1 p(f)=p(f+1
1 n=n-(l$="O")+(l$="P"):
1 n$(u)=n$(u-1
1 n$(n)=n$(m):
1 n$(m)<n$(n)
1 n$(alum)=b$:
1 media=media+d(n,i,o)*(d(n,i,o)
1 m,n;"7X7":
1 ll=(l<-1.95
1 l=d(n,i,o):
1 l=(d(n,i,o)-d(42
1 h(j)=h(j)-d
1 h(j)=h(j)+d
1 fia=(k/(k-1
1 esta2
1 esta1
1 demo G
1 de=de+(z<-1.95
1 d(u,i,o)=d(u-1
1 d(n,i,o)=(
1 d(n,eval,asig)
1 d(m,i,o)=d(41
1 d(alum,i,o)=d(41
1 comprim x
1 c=c+(c$(c)=" "):
1 b=b+(b$(b)=" "):
1 a$(f)="RGM.":
1 a$(c)="????"
1 a$(a)=c$(c)
1 a$(a)=b$(b)
1 Zona
1 Y(q)=Y(q)+(YM>Y(Q))-(YM<Y(Q))+(
1 Y(F),X(F);"
1 X(q)=X(q)+(XM>X(Q))-(XM<X(Q))+(
1 W=W-(d(n,i,o)=-1
1 W=W-(d(n,eval,asig)=-1
1 VOLCADO DE DATAS
1 VID=VID+M:
1 VELOCIDAD X , Y
1 Tron
1 TZX BY YOXXXOY0
1 TABLA DE CARACTERES DEL SPRITE 2
1 TABLA DE CARACTERES
1 Sprite II f
1 Sprite I q
1 SUBRUTINA QUE SE LLAMARA SI HAY CHOQUE
1 Rtty 2
1 Representar notas Z ";el:
1 RTTY CARGANDOSE
1 PUERTO DE ENTRADA PARA EL DESPLAZAMIENTO MANUAL;DERECHA,IZQUIERDA,ARRIBA Y ABAJO
1 PREPARATE PARA CORRER
1 POR FAVOR ESPERE
1 POR FAVOR
1 O HNM LRGIPCVEZDBSYFXAWJ UQK
1 NUMERO DE SPRITES
1 NUMERO DE CARACTERES QUE SE SUCEDEN
1 NUMERO CARACTER ACTUAL
1 NORMA EUROPEA
1 NORMA EEUU
1 MINIMA COORDENADA X , Y
1 MICROHOBBY SEMANAL 89-92
1 MAXIMA COORDENADA X , Y
1 MASCARA DE CHOQUE ALTA RESOLUCION Y ATRIBUTOS
1 MAGAZINE CASSETTE
1 LONGITUD:
1 LONGITUD:
1 Interrup '
1 HOBBY PRESS
1 FRAMES ENTRE CARACTER
1 FRAMES DESPLAZAMIENTO X , Y
1 FRAMES ANTES DE CAMBIAR DE CARACTER
1 FLAGS,DETENER Y BORRAR
1 FLAGS QUE DESCRIBEN EL SPRITE
1 FLAGS DE X , Y
1 FIN DE JUEGO
1 F. Enguix 1986
1 Estadist
1 ESTO ES UNA DEMO DEL FUNCIONAMIENTO DE LOS MESAJES GIRATORIOS #
1 ESPERE UN MOMENTO
1 ENTRADA NORMAL
1 ENTRADA INVERTIDA
1 DIRECCION INICIAL DE PANTALLA
1 DIRECCION DEL CARACTER A DIBUJAR
1 DIRECCION DE LA TABLA
1 DIR. COMPRIM:
1 DESPLAZAMIENTO DE X , Y
1 DEMOSTRACION MENSAJES GIRATORIOS
1 DATOS DE LA TABLA
1 Compresor
1 Cargador Q
1 Cargador M
1 Calcular medias y d.t{picas","
1 COLOR DEL SPRITE
1 COLOR DE PANTALLA
1 CARGANDO TEXTO
1 BASE TABLA DE DIRECCION DE CARACTERES
1 B=DIR-(A*256
1 AYM,AXM;" "
1 AY,AX;" ";
1 ALARMA alarma ,@
1 ADIRECCION DEMASIADO BAJA!
1 ADIR. ORIGEN:
1 ACTIVAMOS LA OPCION DE SPRITE
1 A$="ESTO ES UNA DEMO DEL FUNCIONAMIENTO DE LOS MESAJES GIRATORIOS #"
1 ;eval;"_ Evaluaci^n"
1 ;"voy a ordenar las notas.":
1 ;"q ";q;" x ";x(q);" y ";y(q);"
1 ;"de la prueba de SEPTIEMBRE de"
1 ;"de la FINAL de junio de"
1 ;"de la ";eval;"_ evaluaci^n de"
1 ;"` Que deseas grabar ?":
1 ;"VAMOS A VER QUIEN EMPIEZA":
1 ;"TU PUNTUACION ES: ";t(1
1 ;"Septiembre":
1 ;"Pulsa una tecla.":
1 ;"Pulsa una tecla":
1 ;"Pulsa una tecla para volver al men]":
1 ;"Pulsa una tecla para recibir"
1 ;"Pulsa la opcion deseada."
1 ;"Pulsa ""M"" para volver al menu.":
1 ;"Porcentaje de puntuaciones Z"
1 ;"Pon la cinta en marcha":
1 ;"Pon en marcha el cassette":
1 ;"Para volver al menu, pulsa
1 ;"PUNTUACIONES";
1 ;"PULSA UNA TECLA PARA TIRAR DADO "
1 ;"No calificado: -1":
1 ;"MI PUNTUACION ES: ";t(2
1 ;"LO QUE HACE UN TOTAL DE ";VID
1 ;"JUGADOR 2";
1 ;"JUGADOR 1";
1 ;"INTRODUCIR LISTA";
1 ;"HA GANADO "+c$(j)
1 ;"Fin texto, pulsa cualquier tecla":
1 ;"Fiabilidad = ";fia
1 ;"Evoluci^n en las 5 materias":
1 ;"Espera un momento, voy a ordenar los nombres":
1 ;"Espera un momento, voy a ordenar los nombres":
1 ;"DEMOSTRACION DEL USO DE LA NMI"
1 ;"DEFI INSU SUFI BIEN NOTA SOBR"
1 ;"Correcto";
1 ;"Correcci^n de datos"
1 ;"CONTINUAS JUGANDO? s/n"
1 ;"CICLOS";
1 ;"8.- LOAD TEXTO"
1 ;"7.- Septiembre":
1 ;"7.- SAVE TEXTO";
1 ;"6.- Final";
1 ;"6.- LECTURA TEXTO";
1 ;"5.- Sociales":
1 ;"5.- Quinta";
1 ;"5.- ENTRADA INVERTIDA"
1 ;"4.- Lengua";
1 ;"4.- Cuarta";
1 ;"4.- ENTRADA NORMAL";
1 ;"3.- Tercera";
1 ;"3.- Idioma";
1 ;"3.- Crear nueva lista"
1 ;"3.- NORMA EEUU";
1 ;"2.- Segunda";
1 ;"2.- Ciencias";
1 ;"2.- Cargar desde cinta";
1 ;"2.- NORMA EUROPEA"
1 ;"12345JS 12345JS":
1 ;"12345JS 12345JS 12345JS";
1 ;"1.- Primera";
1 ;"1.- Matem~ticas";
1 ;"1.- RECEPCION";
1 ;"1-Cuantitativas 2-Cualitativas 3-Cuant.Z 4-Cual.Z
1 ;"**********
1 ;"(O=Atr~s)
1 ;" VICTORIAS";
1 ;" P A U S A pulsa una tecla ":
1 ;" OBJETOS";
1 ;" NUMERO DE PERSEGUIDORES ";:
1 ;" MATE. CIEN. IDIO. LENG. SOCI.":
1 ;" F.ENGUIX 1 9 8 6"
1 ;" Espera unos segundos,";
1 ;" Estoy calculando las medias y desviaciones t{picas, tardar\ unos segundos.":
1 ;" Espera unos 27
1 ;" PARA UTILIZAR ESTE PROGRAMA DEBEMOS TENER EN LA MEMORIA EL PROGRAMA SPRITE I DE LA CARA B "
1 ;" TE COGIERON "
1 ;" EMPIEZO YO ":
1 ;" EMPIEZAS TU ":
1 ;" EMPATE ":
1 ;" PASO ":
1 ;" ":
1 ;" ":
1 ;" "
1 9TRPrograma realizado por:Juan Enrique Romero Moreno 1986
1 9 ,. )4 80:;3"$?*6!/-2, 71(
1 7 * 7 2#
1 -CIC;" CICLOS "''" y has destruido ";cos;" objetos "
1 ,i,o)=var/W:
1 ,i,o)=media/W
1 ,i,o)=d(u,i,o):
1 ,i,o)=d(n,i,o):
1 ,i,o))*100
1 ,i,o))*(d(n,i,o)
1 ,eval,asig)=d(44
1 ,eval,asig)=d(43
1 ,eval,asig):
1 ,eval,asig)+(d(44
1 ,eval,asig)+(d(43
1 ,eval,asig)*(k-d(42
1 ,eval,asig))/d(44
1 ,eval,asig))):
1 ,eval,asig)))/(k*d(43
1 ,DEJAR {S-L-D}
1 ,"Sociales"
1 ,"Matem~ticas"
1 ,"Ciencias"
1 +vid;" ":
1 *o;" ":
1 ********** * * * 1.- Introducir lista. * * 2.- Introducir notas. * * 3.- Medias y D.T{picas.* * 4.- Evoluci^n gr~fica. * * 5.- Notas de un alumno.* * 6.- Corregir datos. * * 7.- Salvar en cinta. * * * **************************"
1 )="SPECTRUM":
1 )=" ":
1 );d(n,i,o):
1 (y(q)-ym)>5
1 (y(q),x(q))
1 (x(q)-xm)>6
1 (h(j)-d=h(3
1 (h(j)+d=h(3
1 (f=c);p(f);
1 (d(n,i,o)<5
1 (d(n,i,o)*100
1 (YM,F+PASO)>64
1 (YM,F+PASO)
1 (P=Adelante)";
1 (F+PASO,XM)>64
1 (F+PASO,XM)
1 (((d(n,i,o)-d(42
1 ''''" HENORABUENA "
1 ''''" A D I O S ":
1 '''" Pulsa una tecla ":
1 '''" LO CONSEGUISTE EN "'500
1 ''"POR PASARTE TE QUITO DOS VIDAS":
1 ''" TE CORRESPONDEN ";M;" VIDAS MAS ":
1 "` Quieres cargar notas desde","cinta ? (S/N) ";a$:
1 "` Qu\ nombre desea cambiar ? "," ";a$:
1 "` Qu\ alumno ? ";a$:
1 "` Por qu\ otro ? "," ";b$:
1 "` Otra correcci^n (S/N) ? ";r$:
1 "` Notas y Nombres o s^lo notas ?";" (1/2) ";a:
1 "` Nombre del alumno ? "," ";n$(n):
1 "` Nombre de la lista ? "," (M~x.: 10 carac. ";a$:
1 "` N]mero de {tems"," de la prueba ? ";k:
1 "` Lista de alumnos o un alumno ?";" (L/A) ";a$:
1 "` En qu\ asignatura ? ";asig:
1 "` Desea cambiar nombre o nota ?"," (1/2) ";a$:
1 "` De qu\ evaluaci^n ? ";eval:
1 "` De qu\ alumno ? "," ";a$:
1 "` Cual es su nota ? ";d(n,eval,asig):
1 "` Cual es la nueva nota ? ";d(n,eval,asig):
1 "TR Proyet":
1 "SOCIALES"
1 "NOMBRE? ";n$
1 "MATEMATICAS"
1 "INICIO: ";INI,"INTERV.: ";INT
1 "COMO TE LLAMAS? "'';
1 "CIENCIAS"
1 segundos.":
1 durante la recepcion de un texto.";
1 TABLA DE DATOS DEL SEGUNDO SPRITE
1 SALVAR EN CINTA
1 SACAR NOTAS Z
1 PERE SANCHEZ 1985"
1 NOTAS DE UN ALUMNO
1 NOTAS DE
1 INTRODUCIR NOTAS
1 EVOLUCION GRAFICA
1 CORREGIR DATOS
1 CARGA LOS GRAFICOS EN LA DIRECCION 50100
1